#!/usr/bin/perl

use strict;

open FG,"ServiceEngine-2013Nov23180103.log";

foreach(<FG>)
{
	if(m/JIRA Build\s+: (.*)#(\d+)/)
	{
		print ("JIRA Version = $1,$2\n");
	}
	elsif(m/Java Version\s+: (.*)_(\d+)/)
	{
		print("Java Version = $1,$2\n");
	}
	elsif((m/DB_VERSION:\s+(.*)/) || (m/SQL(\d+)/))
	{
		print("$1\n");
	}	
}

close(FG);